home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / PROGRAMMING / DESKLIBC / SOURCES.ZIP / DeskLib / !DLSources / Libraries / Clear / c / Save < prev   
Text File  |  1995-07-08  |  2KB  |  66 lines
  1. /*
  2.     ####             #    #     # #
  3.     #   #            #    #       #          The FreeWare C library for 
  4.     #   #  ##   ###  #  # #     # ###             RISC OS machines
  5.     #   # #  # #     # #  #     # #  #   ___________________________________
  6.     #   # ####  ###  ##   #     # #  #                                      
  7.     #   # #        # # #  #     # #  #    Please refer to the accompanying
  8.     ####   ### ####  #  # ##### # ###    documentation for conditions of use
  9.     ________________________________________________________________________
  10.  
  11.     File:    Clear.c.Save
  12.     Author:  Copyright © 1993 Jason Howat
  13.     Version: 1.00 (16 Dec 1993)
  14.     Purpose: Save a Clear file to disk.
  15. */
  16.  
  17.  
  18. #include <string.h>
  19.  
  20. #include "DeskLib:Clear.h"
  21. #include "DeskLib:File.h"
  22. #include "DeskLib:Wimp.h"
  23.  
  24.  
  25. void Clear_Save(clear_picture *picture, char *filename)
  26. {
  27.   file_handle   out;
  28.   unsigned      colours,
  29.                 entry;
  30.   unsigned      bitmap_size;
  31.   palette_entry *palette;
  32.  
  33.  
  34.   if((out = File_Open(filename, file_WRITE)) == 0)
  35.     return;
  36.  
  37.   File_SetType(filename, 0x690);
  38.  
  39.   File_WriteBytes(out, picture->creator, strlen(picture->creator) + 1);
  40.  
  41.   File_Write32(out, picture->creatorversion);
  42.   File_Write32(out, picture->width);
  43.   File_Write32(out, picture->height);
  44.   File_Write32(out, picture->bpp);
  45.  
  46.   if(picture->bpp <= 8)
  47.   {
  48.     colours = 1 << picture->bpp;
  49.     palette = picture->palette;
  50.     for(entry = 0 ; entry < colours ; entry++)
  51.     {
  52.       File_Write8(out, palette[entry].data.red);
  53.       File_Write8(out, palette[entry].data.green);
  54.       File_Write8(out, palette[entry].data.blue);
  55.     }
  56.  
  57.     bitmap_size = picture->width * picture->height;
  58.   }
  59.   else
  60.     bitmap_size = 3 * picture->width * picture->height;
  61.  
  62.   File_WriteBytes(out, picture->bitmap, bitmap_size);
  63.  
  64.   File_Close(out);
  65. }
  66.